home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•Word Games•
/
WordSmith •••
/
WordSmith.doc
/
WordSmith.doc.rsrc
/
CODE_9_•Init.txt
< prev
next >
Wrap
Text File
|
1989-09-15
|
24KB
|
438 lines
# near model CODE resource
# jump table entries: 648-648 (1 of them)
export_81:
00000000 48E7 FFF0 movem.l -[A7], D0,D1,D2,D3,D4,D5,D6,D7,A0,A1,A2,A3
00000004 4247 clr.w D7
00000006 41FA 010E lea.l A0, [PC + 0x10E /* 00000116, value 0xA0C, cstring "" */]
0000000A 2218 move.l D1, [A0]+
0000000C 6F00 00C0 ble +0xC2 /* 000000CE */
00000010 2A18 move.l D5, [A0]+
00000012 6604 bne +0x6 /* 00000018 */
00000014 2A0D move.l D5, A5
00000016 9A81 sub.l D5, D1
label00000018:
00000018 2645 movea.l A3, D5
0000001A 48E7 E0C0 movem.l -[A7], D0,D1,D2,A0,A1
0000001E 2F0B move.l -[A7], A3
00000020 2F01 move.l -[A7], D1
00000022 6100 00BE bsr +0xC0 /* 000000E2 */
00000026 4CDF 0307 movem.l D0,D1,D2,A0,A1, [A7]+
0000002A 3018 move.w D0, [A0]+
0000002C 3E18 move.w D7, [A0]+
0000002E 6000 009A bra +0x9C /* 000000CA */
label00000032:
00000032 7800 moveq.l D4, 0x00
00000034 1818 move.b D4, [A0]+
00000036 2204 move.l D1, D4
00000038 0201 000F andi.b D1, 0xF
0000003C 0804 0004 btst.b D4, 0x4
00000040 670E beq +0x10 /* 00000050 */
00000042 E141 asl D1.w, 8
00000044 1218 move.b D1, [A0]+
00000046 0881 000B bclr.b D1, 0xB
0000004A 6704 beq +0x6 /* 00000050 */
0000004C E181 asl D1, 8
0000004E 1218 move.b D1, [A0]+
label00000050:
00000050 7401 moveq.l D2, 0x01
00000052 0804 0007 btst.b D4, 0x7
00000056 6716 beq +0x18 /* 0000006E */
00000058 1418 move.b D2, [A0]+
0000005A 0882 0007 bclr.b D2, 0x7
0000005E 670E beq +0x10 /* 0000006E */
00000060 E142 asl D2.w, 8
00000062 1418 move.b D2, [A0]+
00000064 0882 000E bclr.b D2, 0xE
00000068 6704 beq +0x6 /* 0000006E */
0000006A E182 asl D2, 8
0000006C 1418 move.b D2, [A0]+
label0000006E:
0000006E 7C02 moveq.l D6, 0x02
00000070 4EBA 0062 jsr [PC + 0x62 /* 000000D4 */]
00000074 0885 000F bclr.b D5, 0xF
00000078 6704 beq +0x6 /* 0000007E */
0000007A E185 asl D5, 8
0000007C 1A18 move.b D5, [A0]+
label0000007E:
0000007E 43F3 5800 lea.l A1, [A3 + D5]
00000082 2449 movea.l A2, A1
00000084 0804 0005 btst.b D4, 0x5
00000088 671A beq +0x1C /* 000000A4 */
0000008A 2C01 move.l D6, D1
0000008C 4EBA 0046 jsr [PC + 0x46 /* 000000D4 */]
00000090 0C41 0002 cmpi.w D1, 0x2
00000094 6706 beq +0x8 /* 0000009C */
00000096 6D08 blt +0xA /* 000000A0 */
00000098 DB92 add.l [A2], D5
0000009A 6024 bra +0x26 /* 000000C0 */
label0000009C:
0000009C DB52 add.w [A2], D5
0000009E 6020 bra +0x22 /* 000000C0 */
label000000A0:
000000A0 DB12 add.b [A2], D5
000000A2 601C bra +0x1E /* 000000C0 */
label000000A4:
000000A4 0C81 0000 0032 cmpi.l D1, 0x32 /* '2' */
000000AA 6510 bcs +0x12 /* 000000BC */
000000AC 2F00 move.l -[A7], D0
000000AE 2001 move.l D0, D1
000000B0 A02E syscall BlockMove/BlockMoveData
000000B2 201F move.l D0, [A7]+
000000B4 D1C1 add.l A0, D1
000000B6 D3C1 add.l A1, D1
000000B8 6006 bra +0x8 /* 000000C0 */
label000000BA:
000000BA 12D8 move.b [A1]+, [A0]+
label000000BC:
000000BC 51C9 FFFC dbf D1, -0x6 /* 000000BA */
label000000C0:
000000C0 0804 0006 btst.b D4, 0x6
000000C4 6704 beq +0x6 /* 000000CA */
000000C6 260D move.l D3, A5
000000C8 D792 add.l [A2], D3
label000000CA:
000000CA 51C8 FF66 dbf D0, -0x9C /* 00000032 */
label000000CE:
000000CE 4CDF 0FFF movem.l D0,D1,D2,D3,D4,D5,D6,D7,A0,A1,A2,A3, [A7]+
000000D2 4E75 rts
fn000000D4:
000000D4 7A00 moveq.l D5, 0x00
000000D6 6004 bra +0x6 /* 000000DC */
label000000D8:
000000D8 E18D lsl D5, 8
000000DA 1A18 move.b D5, [A0]+
label000000DC:
000000DC 51CE FFFA dbf D6, -0x8 /* 000000D8 */
000000E0 4E75 rts
fn000000E2:
000000E2 7400 moveq.l D2, 0x00
000000E4 205F movea.l A0, [A7]+
000000E6 201F move.l D0, [A7]+
000000E8 225F movea.l A1, [A7]+
000000EA 6728 beq +0x2A /* 00000114 */
label000000EC:
000000EC 3209 move.w D1, A1
000000EE 0241 0003 andi.w D1, 0x3
000000F2 6708 beq +0xA /* 000000FC */
000000F4 12C2 move.b [A1]+, D2
000000F6 5380 subq.l D0, 1
000000F8 66F2 bne -0xC /* 000000EC */
000000FA 6018 bra +0x1A /* 00000114 */
label000000FC:
000000FC 2200 move.l D1, D0
000000FE E489 lsr D1, 2
00000100 6706 beq +0x8 /* 00000108 */
label00000102:
00000102 22C2 move.l [A1]+, D2
00000104 5381 subq.l D1, 1
00000106 66FA bne -0x4 /* 00000102 */
label00000108:
00000108 0240 0003 andi.w D0, 0x3
0000010C 6002 bra +0x4 /* 00000110 */
label0000010E:
0000010E 12C2 move.b [A1]+, D2
label00000110:
00000110 51C8 FFFC dbf D0, -0x6 /* 0000010E */
label00000114:
00000114 4ED0 jmp [A0]
00000116 0000 0A0C ori.b D0, 0xC
0000011A 0000 0000 ori.b D0, 0x0
0000011E 0042 0000 ori.w D2, 0x0
00000122 0105 btst D5, D0
00000124 9F01 subx.b D7, D1
00000126 101A move.b D0, [A2]+
00000128 05A0 bclr -[A0], D2
0000012A 5348 subq.w A0, 1
0000012C 0000 0000 ori.b D0, 0x0
00000130 FFFF .invalid <<F/7/7>>
00000132 FBC8 .invalid <<F/7/5>>
00000134 FFFF .invalid <<F/7/7>>
00000136 FBD0 .invalid <<F/7/5>>
00000138 8100 sbcd D0, D0
0000013A 0000 0000 ori.b D0, 0x0
0000013E 0000 FFFF ori.b D0, 0xFF
00000142 FBD4 .invalid <<F/7/5>>
00000144 6005 bra +0x7 /* 0000014B */
00000146 A660 syscall FSDispatch/HFSDispatch, flags=6
00000148 05AA 6005 bclr [A2 + 0x6005], D2
0000014C B60B cmp.b D3, A3
0000014E 06C2 .incomplete
00000150 6465 bcc +0x67 /* 000001B7 */
00000152 763A moveq.l D3, 0x3A
00000154 636F bls +0x71 /* 000001C5 */
00000156 6E73 bgt +0x75 /* 000001CB */
00000158 6F6C ble +0x6E /* 000001C6 */
0000015A 650B bcs +0xD /* 00000167 */
0000015C 06CE .incomplete
0000015E 6465 bcc +0x67 /* 000001C5 */
00000160 763A moveq.l D3, 0x3A
00000162 636F bls +0x71 /* 000001D3 */
00000164 6E73 bgt +0x75 /* 000001D9 */
00000166 6F6C ble +0x6E /* 000001D4 */
00000168 650B bcs +0xD /* 00000175 */
0000016A 06DA .incomplete
0000016C 6465 bcc +0x67 /* 000001D3 */
0000016E 763A moveq.l D3, 0x3A
00000170 636F bls +0x71 /* 000001E1 */
00000172 6E73 bgt +0x75 /* 000001E7 */
00000174 6F6C ble +0x6E /* 000001E2 */
00000176 6510 bcs +0x12 /* 00000188 */
00000178 4806 nbcd.b D6
0000017A EC46 asr D6.w, 6
0000017C 5359 subq.w [A1]+, 1
0000017E 5300 subq.b D0, 1
00000180 0002 FA00 ori.b D2, 0x0
00000184 0003 0200 ori.b D3, 0x0
label00000188:
00000188 0003 0A00 ori.b D3, 0x0
0000018C 0003 1200 ori.b D3, 0x0
00000190 0003 1A43 ori.b D3, 0x43 /* 'C' */
00000194 4F4E chk.w D7, A6
00000196 5300 subq.b D0, 1
00000198 0003 5200 ori.b D3, 0x0
0000019C 0003 5A00 ori.b D3, 0x0
000001A0 0003 6200 ori.b D3, 0x0
000001A4 0003 6A00 ori.b D3, 0x0
000001A8 0003 7253 ori.b D3, 0x53 /* 'S' */
000001AC 5953 subq.w [A3], 4
000001AE 5400 addq.b D0, 2
000001B0 0003 2200 ori.b D3, 0x0
000001B4 0003 2A00 ori.b D3, 0x0
000001B8 0003 3200 ori.b D3, 0x0
000001BC 0003 3A00 ori.b D3, 0x0
000001C0 0003 4260 ori.b D3, 0x60 /* '`' */
000001C4 06F0 .incomplete
label000001C6:
000001C6 6006 bra +0x8 /* 000001CE */
000001C8 F460 .invalid <<cinv/cpush with scope=0>>
000001CA 06F8 .incomplete
000001CC 6006 bra +0x8 /* 000001D4 */
label000001CE:
000001CE FC60 0700 .extension 0xC60 <<F/1/6>>, 0x0700 // unimplemented
000001D2 6007 bra +0x9 /* 000001DB */
label000001D4:
000001D4 0860 070C bchg.b -[A0], 0xC
000001D8 6007 bra +0x9 /* 000001E1 */
000001DA 1060 movea.b A0, -[A0]
000001DC 0714 btst [A4], D3
000001DE 6007 bra +0x9 /* 000001E7 */
000001E0 1860 movea.b A4, -[A0]
label000001E2:
000001E2 0720 btst -[A0], D3
000001E4 6007 bra +0x9 /* 000001ED */
000001E6 2460 movea.l A2, -[A0]
000001E8 0728 6007 btst [A0 + 0x6007], D3
000001EC 2C60 movea.l A6, -[A0]
000001EE 0730 5040 btst [A0 + D5.w + 0x40], D3
000001F2 0764 bchg -[A4], D3
000001F4 0000 0042 ori.b D0, 0x42 /* 'B' */
000001F8 0000 0042 ori.b D0, 0x42 /* 'B' */
000001FC 0000 0042 ori.b D0, 0x42 /* 'B' */
00000200 0000 0042 ori.b D0, 0x42 /* 'B' */
00000204 0000 0042 ori.b D0, 0x42 /* 'B' */
00000208 0000 0042 ori.b D0, 0x42 /* 'B' */
0000020C 0000 0042 ori.b D0, 0x42 /* 'B' */
00000210 0000 0042 ori.b D0, 0x42 /* 'B' */
00000214 0000 0042 ori.b D0, 0x42 /* 'B' */
00000218 0000 0042 ori.b D0, 0x42 /* 'B' */
0000021C 0000 0042 ori.b D0, 0x42 /* 'B' */
00000220 0000 0042 ori.b D0, 0x42 /* 'B' */
00000224 0000 0042 ori.b D0, 0x42 /* 'B' */
00000228 0000 0042 ori.b D0, 0x42 /* 'B' */
0000022C 0000 0042 ori.b D0, 0x42 /* 'B' */
00000230 0000 0042 ori.b D0, 0x42 /* 'B' */
00000234 6007 bra +0x9 /* 0000023D */
00000236 6860 bvc +0x62 /* 00000298 */
00000238 076C 6007 bchg [A4 + 0x6007], D3
0000023C 7060 moveq.l D0, 0x60
0000023E 0774 6007 bchg [A4 + D6.w + 0x7], D3
00000242 7860 moveq.l D4, 0x60
00000244 077C 6007 bchg 0x6007, D3
00000248 8060 or.w D0, -[A0]
0000024A 0784 bclr D4, D3
0000024C 6007 bra +0x9 /* 00000255 */
0000024E 8860 or.w D4, -[A0]
00000250 078C bclr A4, D3
00000252 6007 bra +0x9 /* 0000025B */
00000254 9060 sub.w D0, -[A0]
00000256 0794 bclr [A4], D3
00000258 6007 bra +0x9 /* 00000261 */
0000025A 9860 sub.w D4, -[A0]
0000025C 079C bclr [A4]+, D3
0000025E 6007 bra +0x9 /* 00000267 */
00000260 A010 syscall Allocate/PBAllocContig/AllocContig
00000262 4207 clr.b D7
00000264 A6FF syscall XFindLine/TEFindLine, flags=6
00000266 FF00 .extension 0xF00 <<F/4-5/7>> // unimplemented
00000268 0002 F200 ori.b D2, 0x0
0000026C 0002 F200 ori.b D2, 0x0
00000270 0002 F200 ori.b D2, 0x0
00000274 0002 F200 ori.b D2, 0x0
00000278 0002 F200 ori.b D2, 0x0
0000027C 0002 F200 ori.b D2, 0x0
00000280 0002 F200 ori.b D2, 0x0
00000284 0002 F200 ori.b D2, 0x0
00000288 0002 F200 ori.b D2, 0x0
0000028C 0002 F200 ori.b D2, 0x0
00000290 0002 F200 ori.b D2, 0x0
00000294 0002 F200 ori.b D2, 0x0
label00000298:
00000298 0002 F200 ori.b D2, 0x0
0000029C 0002 F200 ori.b D2, 0x0
000002A0 0002 F200 ori.b D2, 0x0
000002A4 0002 F260 ori.b D2, 0x60 /* '`' */
000002A8 07A8 6007 bclr [A0 + 0x6007], D3
000002AC AC60 syscall WaitNextEvent, auto_pop
000002AE 07B0 6007 bclr [A0 + D6.w + 0x7], D3
000002B2 B460 cmp.w D2, -[A0]
000002B4 07B8 6007 bclr [0x00006007], D3
000002B8 BC60 cmp.w D6, -[A0]
000002BA 07C0 .incomplete
000002BC 6007 bra +0x9 /* 000002C5 */
000002BE C460 and.w D2, -[A0]
000002C0 07C8 .incomplete
000002C2 6007 bra +0x9 /* 000002CB */
000002C4 CC60 and.w D6, -[A0]
000002C6 07D0 .incomplete
000002C8 6007 bra +0x9 /* 000002D1 */
000002CA D460 add.w D2, -[A0]
000002CC 07D8 .incomplete
000002CE 6007 bra +0x9 /* 000002D7 */
000002D0 DC60 add.w D6, -[A0]
000002D2 07E0 .incomplete
000002D4 6007 bra +0x9 /* 000002DD */
000002D6 E410 roxr D0.b, 2
000002D8 4207 clr.b D7
000002DA E857 roxr D7.w, 4
000002DC 6172 bsr +0x74 /* 00000350 */
000002DE 6E69 bgt +0x6B /* 00000349 */
000002E0 6E67 bgt +0x69 /* 00000349 */
000002E2 2120 move.l -[A0], -[A0]
000002E4 5772 6974 subq.w <<invalid full ext with I/IS == 4>>, 3
000002E8 696E bvs +0x70 /* 00000358 */
000002EA 6720 beq +0x22 /* 0000030C */
000002EC 746F moveq.l D2, 0x6F
000002EE 2074 6865 movea.l A0, [A4 + D6 + 0x65]
000002F2 2063 movea.l A0, -[A3]
000002F4 6F6E ble +0x70 /* 00000364 */
000002F6 736F moveq.l D1, 0x6F
000002F8 6C65 bge +0x67 /* 0000035F */
000002FA 2069 6E20 movea.l A0, [A1 + 0x6E20]
000002FE 6170 bsr +0x72 /* 00000370 */
00000300 706C moveq.l D0, 0x6C
00000302 6963 bvs +0x65 /* 00000367 */
00000304 6174 bsr +0x76 /* 0000037A */
00000306 696F bvs +0x71 /* 00000377 */
00000308 6E73 bgt +0x75 /* 0000037D */
0000030A 2069 7320 movea.l A0, [A1 + 0x7320]
// begin alternate branch 0000030C-0000030E
label0000030C:
0000030C 7320 moveq.l D1, 0x20
// end alternate branch 0000030C-0000030E
label0000030C: // (misaligned)
0000030E 4E4F trap 15
00000310 5420 addq.b -[A0], 2
00000312 7375 moveq.l D1, 0x75
00000314 7070 moveq.l D0, 0x70
00000316 6F72 ble +0x74 /* 0000038A */
00000318 7465 moveq.l D2, 0x65
0000031A 6421 bcc +0x23 /* 0000033D */
0000031C 0D10 btst [A0], D6
0000031E 5708 subq.b A0, 3
00000320 2E41 movea.l A7, D1
00000322 6C65 bge +0x67 /* 00000389 */
00000324 7274 moveq.l D1, 0x74
00000326 2120 move.l -[A0], -[A0]
00000328 5265 addq.w -[A5], 1
0000032A 6164 bsr +0x66 /* 00000390 */
0000032C 696E bvs +0x70 /* 0000039C */
0000032E 6720 beq +0x22 /* 00000350 */
00000330 6672 bne +0x74 /* 000003A4 */
00000332 6F6D ble +0x6F /* 000003A1 */
00000334 2074 6865 movea.l A0, [A4 + D6 + 0x65]
00000338 2063 movea.l A0, -[A3]
0000033A 6F6E ble +0x70 /* 000003AA */
0000033C 736F moveq.l D1, 0x6F
0000033E 6C65 bge +0x67 /* 000003A5 */
00000340 2069 6E20 movea.l A0, [A1 + 0x6E20]
00000344 6170 bsr +0x72 /* 000003B6 */
00000346 706C moveq.l D0, 0x6C
00000348 6963 bvs +0x65 /* 000003AD */
0000034A 6174 bsr +0x76 /* 000003C0 */
0000034C 696F bvs +0x71 /* 000003BD */
0000034E 6E73 bgt +0x75 /* 000003C3 */
fn00000350:
00000350 2069 7320 movea.l A0, [A1 + 0x7320]
00000354 4E4F trap 15
00000356 5420 addq.b -[A0], 2
label00000358:
00000358 7375 moveq.l D1, 0x75
0000035A 7070 moveq.l D0, 0x70
0000035C 6F72 ble +0x74 /* 000003D0 */
0000035E 7465 moveq.l D2, 0x65
00000360 6421 bcc +0x23 /* 00000383 */
00000362 2020 move.l D0, -[A0]
label00000364:
00000364 596F 7520 subq.w [A7 + 0x7520], 4
00000368 6D61 blt +0x63 /* 000003CB */
0000036A 7920 moveq.l D4, 0x20
0000036C 7479 moveq.l D2, 0x79
0000036E 7065 moveq.l D0, 0x65
fn00000370:
00000370 2062 movea.l A0, -[A2]
00000372 656C bcs +0x6E /* 000003E0 */
00000374 6F77 ble +0x79 /* 000003ED */
00000376 3A0D move.w D5, A5
00000378 0B08 btst A0, D5
fn0000037A:
0000037A 8664 or.w D3, -[A4]
0000037C 6576 bcs +0x78 /* 000003F4 */
0000037E 3A63 movea.w A5, -[A3]
00000380 6F6E ble +0x70 /* 000003F0 */
00000382 736F moveq.l D1, 0x6F
00000384 6C65 bge +0x67 /* 000003EB */
00000386 0808 AA64 btst.b A0, 0x64 /* 'd' */
label0000038A:
0000038A 6576 bcs +0x78 /* 00000402 */
0000038C 3A6E 756C movea.w A5, [A6 + 0x756C]
fn00000390:
00000390 6C09 bge +0xB /* 0000039B */
00000392 08B4 6465 763A bclr.b [A4 + D7.w * 8 + 0x3A], 0x65 /* 'e' */
00000398 7374 moveq.l D1, 0x74
0000039A 6469 bcc +0x6B /* 00000405 */
label0000039C:
0000039C 6E0A bgt +0xC /* 000003A8 */
0000039E 08BE 6465 bclr.b <<invalid special address>>, 0x65 /* 'e' */
000003A2 763A moveq.l D3, 0x3A
label000003A4:
000003A4 7374 moveq.l D1, 0x74
000003A6 646F bcc +0x71 /* 00000417 */
label000003A8:
000003A8 7574 moveq.l D2, 0x74
label000003AA:
000003AA 0A08 CA64 xori.b A0, 0x64 /* 'd' */
000003AE 6576 bcs +0x78 /* 00000426 */
000003B0 3A73 7464 movea.w A5, [A3 + D7.w * 4 + 0x64]
000003B4 6572 bcs +0x74 /* 00000428 */
fn000003B6:
000003B6 720F moveq.l D1, 0x0F
000003B8 08D7 0100 bset.b [A7], 0x0
000003BC 0100 btst D0, D0
000003BE 0100 btst D0, D0
fn000003C0:
000003C0 0101 btst D1, D0
000003C2 0100 btst D0, D0
000003C4 0000 00FF ori.b D0, 0xFF
000003C8 FF0F .extension 0xF0F <<F/4-5/7>> // unimplemented
000003CA 08EB 0100 0200 bset.b [A3 + 0x200], 0x0
label000003D0:
000003D0 0100 btst D0, D0
000003D2 0101 btst D1, D0
000003D4 0100 btst D0, D0
000003D6 4000 negx.b D0
000003D8 00FF .incomplete
000003DA FF00 .extension 0xF00 <<F/4-5/7>> // unimplemented
000003DC 0000 011A ori.b D0, 0x1A
label000003E0:
000003E0 2541 3569 move.l [A2 + 0x3569], D1